home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / EXPORT / MISC / AUS_NZ.AML < prev    next >
Text File  |  1999-03-12  |  16KB  |  460 lines
  1. /* --------------------------------------------------------------------------
  2. /*  U.S. Geological Survey
  3. /*  Energy Resource Team
  4. /*  P.O. Box 25046
  5. /*  MS 939
  6. /*  Denver Federal Center
  7. /*  Denver CO, 80225-0046, U.S.A.
  8. /* ---------------------------------------------------------------------------
  9. /*  World Energy Project
  10. /* ---------------------------------------------------------------------------
  11. /* ---------------------------------------------------------------------------
  12. /*  Program: aus_nz.aml
  13. /*  Purpose: create map composition of 
  14. /*  MAP SHOWING GEOLOGY, OIL AND GAS FIELDS, AND GEOLOGIC PROVINCES
  15. /*  OF AUSTRALIA AND NEW ZEALAND (Plate 3 of Open File Report 97-470F)
  16. /* ---------------------------------------------------------------------------
  17. /*  Requires:  fnt034 - Fontset used by shadeset (must be in this AML's directory)
  18. /*             fnt029 - Fontset used by shadeset (must be in this AML's directory)
  19. /*             glg.lut - Lookup table assigning geologic age color
  20. /*             lith.lut - Lookup table assigning rock type fill pattern
  21. /*             eindex.gra - Graphic file of index map
  22. /*             legend.gra - Graphic file of geologic legend
  23. /*             ausprov.txt - Text file of province list
  24. /*             dsclaim.txt - Text file of U.S.G.S. disclaimer
  25. /*             geo1.mrk - Markerset of geologic age symbols
  26. /* ---------------------------------------------------------------------------
  27. /*  Coverages:  geo_3anz   Geologic age (polygon)
  28. /*              prv_3anz   Geologic provinces (polygon)
  29. /*              fld_3anz   Oil and gas field centerpoints (point)
  30. /*              cit_3anz   Selected cities (points)
  31. /*              grd_3anz   Latitude/Longitude graticule (arc)
  32. /* ---------------------------------------------------------------------------
  33. /*  Calls:      mapbar.aml   Draws U.S.G.S. standard scale bar
  34. /* ---------------------------------------------------------------------------
  35. /*  Notes:    Creates map composition to be viewed on screen or plot files
  36. /*            in either hpgl or postscript format.
  37. /*            Operates in arcplot
  38. /* ---------------------------------------------------------------------------
  39. /*  Directory structure:
  40. /*            This AML, fnt034, fnt029, ausprov.txt and eindex.gra 
  41. /*            need to be in one directory together.
  42. /*            The coverages need to be in a directory "covers/aus_nz".
  43. /*            The shadesets, markerset, lookup tables, dsclaim.txt and
  44. /*            legend.gra need to be in a directory "legend".
  45. /*            The output files need to be written to a directory "plots".
  46. /* ---------------------------------------------------------------------------
  47. /*  History:      Jin Qiang - 09/27/1997  Original Coding
  48. /*                Douglas W. Steinshouer - 02/04/1999  Modifications
  49. /* =========================================================================== 
  50.  
  51. /*  ---------------  Toggle on/off to delete previous plot files
  52.  
  53. /* &sys rm ../plots/aus.gra
  54. /* &sys rm ../plots/aus.hpg
  55. /* &sys rm ../plots/aus.ps
  56.  
  57. /*  ----------------  Initialize Arcplot
  58.  
  59. ap
  60.  
  61. /*  ----------------  Set display environment
  62. /*                    9999 - on screen display (used with aus.map)
  63. /*                    1040 - graphic output aus.gra
  64. /*                    1040 2 - graphic output aus.ps (postscript)
  65.  
  66. /*  ----------------  Toggle on for on screen display
  67.  
  68. disp 9999
  69.  
  70. /*  ----------------  Toggle on for graphic output (aus.gra - aus.hpg)
  71.  
  72. /* display 1040
  73. /* ../plots/aus.gra 
  74.  
  75. /*  ----------------  Toggle on for postscript output
  76.  
  77. /* display 1040 2
  78. /* ../plots/aus.ps 
  79.  
  80. /*  Initialize map composition (used with display 9999)
  81.  
  82. &if [exists aus.map -directory] &then killmap aus.map
  83. map aus.map
  84.  
  85. /*  -----------------  Define page size, map extent and map scale
  86.  
  87. mape ../covers/aus_nz/geo_3anz
  88.  pagesize 52 35
  89.  mapposition ll 0 2.5 
  90. mapunits meters
  91. mapscale 7500000
  92.  
  93. /*  ----------------  Write geologic province list and U.S.G.S. disclaimer
  94.  
  95. textset font.txt
  96. textsymbol 14
  97. textquality kern
  98. textstyle typeset
  99. textsize 11 pt
  100. move 48 33.5
  101. textfile ausprov.txt
  102. move 39 2
  103. textsize 12 pt
  104. textfile ../dsclaim.txt
  105.  
  106. /*  ----------------  Draw and label geologic age, draw rock type and contacts
  107.  
  108. lineset plotter.lin;linesymbol 1;linesize 0.005
  109. shadeset ../legend/usgsgeo.shd
  110.  
  111. polygonshades ../covers/aus_nz/geo_3anz GEN_GLG ../legend/glg.lut
  112.  
  113. shadeset ../legend/lith.shd
  114.  
  115. reselect ../covers/aus_nz/geo_3anz poly TYPE IN {'e','i','v','w'}
  116. polygonshades ../covers/aus_nz/geo_3anz TYPE ../legend/lith.lut
  117.  
  118. arcs ../covers/aus_nz/geo_3anz
  119.  
  120. aselect ../covers/aus_nz/geo_3anz poly
  121. reselect ../covers/aus_nz/geo_3anz poly GEN_GLG IN {'H2O','oth','und'}
  122. nselect ../covers/aus_nz/geo_3anz poly
  123. reselect ../covers/aus_nz/geo_3anz poly area > 1000000000
  124.  
  125. markerset /region3-4/steinshouer/region3/geo1.mrk
  126. markerscale 0.1
  127. markersize 0.075 
  128.  
  129. labelmarkers ../covers/aus_nz/geo_3anz GEN_GLG ../legend/marker.lut
  130.  
  131.  
  132. /*  ----------------  Write agency information
  133.  
  134. textdelete all;textset font.txt; textsymbol 1
  135. textsize 15 pt
  136. move 2.2 34.1
  137. text 'U.S. DEPARTMENT OF THE INTERIOR'
  138. textsize 13 pt
  139. MOVE 2.2 33.9
  140. TEXT 'U.S. GEOLOGICAL SURVEY'
  141. move 48.8 34.1
  142. textsize 15 pt
  143. text 'OPEN-FILE REPORT 97-470F'
  144. move 50.27 33.9
  145. textsize 13 pt
  146. text 'PLATE 3 OF 3'
  147.  
  148. /*  ----------------  Write Reference Citations
  149.  
  150. textsize 11 pt
  151. move 12.25 10.75
  152. text 'REFERENCES'
  153. move 12.08 10.55
  154. text '1. Bureau of Mineral Resources, 1965 and 1967,' 
  155. move 12.25 10.35
  156. text 'The Geological Map of the World: Australia and Oceania, First Edition (Scale 1:5,000,000),
  157. move 12.25 10.15 
  158. text 'Bureau of Mineral Resources, Geology and Geophysics, Australia Department of National Development,' 
  159. move 12.25 9.95
  160. text '(now Australian Geological Survey Organisation),'
  161. move 12.25 9.75
  162. text 'Commission for the Geological Map of the World (International Geological Congress),'
  163. move 12.25 9.55
  164. text 'Canberra, Australia,'
  165. move 12.25 9.35
  166. text 'Sheets 6, 7, 8, 11, and 12.'
  167. move 12.08 9.1
  168. text '2. New Zealand Geological Survey, 1971,'
  169. move 12.25 8.9
  170. text 'The Geological Map of the World: Australia and Oceania, First Edition (Scale 1:5,000,000),'
  171. move 12.25 8.7
  172. text 'New Zealand Geological Survey (Institute of Nuclear and Geological Sciences Limited),'
  173. move 12.25 8.5
  174. text 'Commission for the Geological Map of the World (International Geological Congress),'
  175. move 12.25 8.3
  176. text 'Lower Hutt, New Zealand,'
  177. move 12.25 8.1
  178. text 'Sheets 9 and 13.'
  179. move 12.08 7.85
  180. text '3. Environmental Systems Research Institute, Inc. (ESRI), 1992,'
  181. move 12.25 7.65
  182. text 'Arcworld Digital Map of the World, (Scales 1:3,000,000 and 1:25,000,000),'
  183. move 12.25 7.45
  184. text 'ESRI, Redlands, CA.'
  185. move 12.08 7.2
  186. text '4. Petroconsultants International Data Corp., 1996,' 
  187. move 12.25 7.0
  188. text 'Petroleum Exploration and Production Database,'
  189. move 12.25 6.8
  190. text 'Petroconsultants International Data Corp. Geneva, Switzerland.'
  191. move 12.08 6.35
  192. text '5. Klett, T.R., Ahlbrandt, T.S., Schmoker, J.W., and Dolton, G.L., 1997,'
  193. move 12.25 6.15
  194. text 'Ranking of the world`s oil and gas provinces by known petroleum volumes,'
  195. move 12.25 5.95
  196. text 'U.S. Geological Survey Open File Report 97-463, Denver, CO,'
  197. move 12.25 5.75
  198. text 'one CD-ROM.'
  199.  
  200. /*  ----------------  Write ancillary text
  201.  
  202. textsize 9 pt
  203. move 23.485 7.75
  204. text 'Projection: Robinson'
  205. move 44 4.25
  206. text 'INTERIOR - GEOLOGICAL SURVEY,  DENVER,  CO  -  1999'
  207.  
  208. /*  ----------------  Write map projection information
  209.  
  210. textsize 10 pt
  211. move 2.15 3.3
  212. text 'Projection: Lambert Conformal Conic with Two Standard Parallels at 10 degrees South and 30 degrees South Latitude'
  213. move 2.15 3.15
  214. text 'Central Meridian: 148 degrees East Longitude
  215.  
  216. /*  ----------------  Map title 
  217.  
  218. TEXTSYMBOL 16
  219. TEXTSIZE 18 PT
  220. move 22.495 1.675
  221. text 'Compiled By'
  222. move 19.2 1.35
  223. text 'Douglas W. Steinshouer, Jin Qiang, Peter J. McCabe and Robert T. Ryder'
  224. move 22.95 1.025
  225. textsize 14 pt
  226. text '1999'
  227. textsize 24 pt;
  228. move 14.2 2.4
  229. text 'MAPS SHOWING GEOLOGY, OIL AND GAS FIELDS, AND GEOLOGIC PROVINCES OF THE ASIA PACIFIC REGION'
  230. move 20.65 2
  231. text 'Plate 3: Australia and New Zealand'
  232.  
  233.  
  234. /*  ----------------  Draw oil and gas field centerpoint
  235.   
  236. markerset oilgas.mrk
  237. markerscale mapscale 2000000 
  238. reselect ../covers/aus_nz/fld_3anz point COMMODITY = 'Oil'
  239. pointmarkers ../covers/aus_nz/fld_3anz 102
  240. nselect ../covers/aus_nz/fld_3anz point
  241. pointmarkers ../covers/aus_nz/fld_3anz 202
  242.  
  243. /*  ----------------  Draw standard U.S.G.S. map scale bar
  244.  
  245. textcolor black
  246. &r  ../legend/mapbar 20.55 3.8 7500000
  247.  
  248. /*  ----------------  Draw map frame and latitude/longitude graticule
  249.  
  250. linesize 0.02;linecolor black
  251. reselect ../covers/aus_nz/grd_3anz arc grd_3anz-id = 1
  252. arcs ../covers/aus_nz/grd_3anz
  253. clearselect ../covers/aus_nz/grd_3anz arc
  254. reselect ../covers/aus_nz/grd_3anz arc grd_3anz-id = 3 
  255. linecolor green;linesize 0.00001
  256. arcs ../covers/aus_nz/grd_3anz
  257.  
  258. /*  ----------------  Label latitude/longitude graticule
  259.  
  260. textdelete all
  261. textset font.txt
  262. textsymbol 14
  263.  
  264. textsize 8 pt
  265. textstyle typeset
  266. move 3.207 33.69; text '114!pat1713'
  267. move 5.625 33.69;text '118!pat1713'
  268. move 8.015 33.69;text '122!pat1713'
  269. move 10.398 33.7;text '126!pat1713'
  270. move 12.765 33.7;text '130!pat1713'
  271. move 15.104 33.7;text '134!pat1713'
  272. move 17.45 33.7;text '138!pat1713'
  273. move 19.778 33.711;text '142!pat1713'
  274. move 22.111 33.711;text '146!pat1713'
  275. move 24.439 33.715;text '150!pat1713'
  276. move 26.766 33.715;text '154!pat1713'
  277. move 29.105 33.72;text '158!pat1713'
  278. move 31.428 33.722;text '162!pat1713'
  279. move 33.793 33.728;text '166!pat1713'
  280. move 36.151 33.728;text '170!pat1713'
  281. move 38.328 33.728;text '174!pat1713'
  282. move 40.937 33.737;text '178!pat1713'
  283. move 43.323 33.742;text '178!pat1713'
  284. move 42.142 33.74;text '180!pat1713'
  285. move 45.767 33.742;text '174!pat1713'
  286. move 47.2 33.216;text '4!pat1713'
  287. move 47.2 30.765;text '8!pat1713'
  288. move 47.2 28.36;text '12!pat1713'
  289. move 47.2 25.983;text '16!pat1713'
  290. move 47.2 23.614;text '20!pat1713'
  291. move 47.2 21.234;text '24!pat1713'
  292. move 47.2 18.838;text '28!pat1713'
  293. move 47.2 16.424;text '32!pat1713'
  294. move 47.2 13.94;text '36!pat1713'
  295. move 47.2 11.407;text '40!pat1713'
  296. move 47.2 8.789;text '44!pat1713'
  297. move 47.2 6.089;text '48!pat1713'
  298. move 27.54 9.923;text '48!pat1713'
  299. move 27.54 7.228;text '52!pat1713'
  300. move 2.07 31.41;text '8!pat1713'
  301. move 2.019 29.025;text '12!pat1713'
  302. move 2.019 26.667;text '16!pat1713'
  303. move 2.019 24.307;text '20!pat1713'
  304. move 2.019 21.957;text '24!pat1713'
  305. move 2.019 19.579;text '28!pat1713'
  306. move 2.019 17.174;text '32!pat1713'
  307. move 2.019 14.718;text '36!pat1713'
  308. move 2.019 12.219;text '40!pat1713'
  309. move 2.984 11.66;text '104!pat1713'
  310. move 4.903 11.66;text '108!pat1713'
  311. move 6.8 11.665;text '112!pat1713'
  312. move 8.684 11.669;text '116!pat1713'
  313. move 10.542 11.67;text '120!pat1713'
  314. move 12.389 11.68;text '124!pat1713'
  315. move 14.223 11.685;text '128!pat1713'
  316. move 16.046 11.69;text '132!pat1713'
  317. move 17.864 11.7;text '136!pat1713'
  318. move 19.679 11.7;text '140!pat1713'
  319. move 21.463 11.7;text '144!pat1713'
  320. move 23.284 11.72;text '148!pat1713'
  321. move 25.082 11.72;text '152!pat1713'
  322. move 26.895 11.72;text '156!pat1713'
  323. move 28.181 4.636;text '160!pat1713'
  324. move 29.828 4.636;text '164!pat1713'
  325. move 31.475 4.636;text '168!pat1713'
  326. move 33.14 4.636;text '172!pat1713'
  327. move 34.812 4.636;text '176!pat1713'
  328. move 36.509 4.636;text '180!pat1713'
  329. move 38.166 4.636;text '176!pat1713'
  330. move 39.889 4.636;text '172!pat1713'
  331. move 41.616 4.636;text '168!pat1713'
  332. move 43.383 4.636;text '164!pat1713'
  333. move 45.169 4.636;text '160!pat1713'
  334. move 46.975 4.636;text '156!pat1713'
  335.  
  336. /*  ----------------  Draw geologic provinces and annotation
  337.  
  338. lineset carto.lin
  339.  
  340. arclines ../covers/aus_nz/prv_3anz 202
  341.  
  342. textset carto.txt
  343.  
  344. annotext ../covers/aus_nz/prv_3anz
  345.  
  346. annotext ../covers/aus_nz/geo_3anz
  347.  
  348. /*  ----------------  Draw and label selected cities
  349.  
  350. markerset plotter.mrk
  351. markerscale 1
  352. markersize 0.125
  353.  
  354. pointmarkers ../covers/aus_nz/cit_3anz 69
  355.  
  356. textset font.txt
  357. textsymbol 2
  358. textcolor 'midnight blue'
  359. textsize 12 pt
  360.  
  361. pointtext ../covers/aus_nz/cit_3anz NAME UL
  362.  
  363. textdelete all
  364.  
  365. /*  ----------------  Draw geologic legend
  366.  
  367. plot ../legend/legend1.gra box 1.75 2.25 13 11.5
  368.  
  369. /*  ----------------  Draw map index
  370.  
  371. plot auindex.gra box 21.1 8 27 11
  372.  
  373. /*  ----------------  Draw description of map 
  374.  
  375. shadeset ../legend/usgsgeo.shd
  376. shadesymbol 165
  377. linecolor black
  378. patch 37.9 4.95 46.96 10.3 OUTLINE
  379.  
  380. textdelete all
  381. textset font.txt
  382. textsymbol 14
  383. textquality kern
  384. textsize 11 pt
  385.  
  386. move 41.05 9.9
  387. text 'ABOUT THIS MAP'
  388. move 38.3 9.65
  389. text 'This digitally compiled map is part of a worldwide series of maps on CD-ROM released by the U.S. Geological Survey`s World' 
  390. move 38.3 9.45
  391. text 'World Energy Project.  The goal of the project is to assess the undiscovered, technically recoverable oil and gas resources'
  392. move 38.3 9.25
  393. text 'of the world.  For data management purposes, the world is divided into eight regions based on political boundaries, and'
  394. move 38.3 9.05
  395. text 'corresponding approximately to the economic regions of the world as defined by be U.S. Department of State.  This map covers'
  396. move 38.3 8.85
  397. text 'the southern part of the Asia Pacific Region (Region 3) and includes Australia, Fiji, New Caledonia, New Zealand, Tonga and Vanuatu.'
  398. move 38.3 8.65
  399. text 'Two additional maps of the Asia Pacific Region cover the Far East (Plate 1) and Southeast Asia (Plate 2) both to the north.'
  400. move 38.3 8.4
  401. text 'The region is divided into geologic provinces. Each province has a set of geologic characteristics that distinguish it from ' 
  402. move 38.3 8.2
  403. text 'surrounding provinces.  These characteristics may include the predominant lithologies, the age of the strata and the structural ' 
  404. move 38.3 8.0
  405. text 'style.  Some provinces contain multiple genetically-related basins. Klett and others, (1997) list all the provinces identified by'
  406. move 38.3 7.8
  407. text 'the World Energy Project and rank them by known petroleum volumes. Offshore province boundaries are defined by the 2000 meter contour.'  
  408. move 38.3 7.6
  409. text ' Each province is assigned a unique number that begins with region number (3). Details of the map sources and compilation are'
  410.  
  411. move 38.3 7.4
  412. text 'given in the metadata file on the CD-ROM and at the lower left of this map.  The geologic outcrops on this map are based primarily'
  413. move 38.3 7.2
  414. text 'on the Geological Map of the World: Australia and Oceania by the Bureau of Mineral Resources (now Australian Geological Survey'
  415. move 38.3 7.0
  416. text 'Organisation)(1965 and 1967) and the New Zealand Geological Survey (Institute of Geological and Nuclear Sciences Limited)(c)(1971).' 
  417. move 38.3 6.8
  418. text 'Some stratigraphic units are combined to simplify the map and to ensure consistency across the region.  All rocks are colored by age.' 
  419. move 38.3 6.6
  420. text 'Sedimentary and metamorphic rocks are not differentiated whereas igneous rocks and their types are indicated by patterns superimposed'. 
  421. move 38.3 6.4
  422. text 'on the appropriate age color. The centerpoint locations of oil and gas fields are plotted based on the locations in the Petroconsultants' 
  423. move 38.3 6.2
  424. text 'database (1996) with their permission.
  425. move 38.3 5.95
  426. text 'This map is compiled using Environmental Systems Research Institute, Inc. (ESRI) Arc/Info software.  Political boundaries'
  427. move 38.3 5.75
  428. text 'and cartographic representations on this map are taken, with permission, from ESRI (1992); they have no political significance and'
  429. move 38.3 5.55
  430. text 'are displayed as a general reference only.  Portions of this database covering the coastlines and country boundaries contain' 
  431. move 38.3 5.35
  432. text 'contain intellectual property of Environmental Systems Research Institute, Inc (ESRI). Copyright (c)1992 and 1996, ESRI.'
  433. move 38.3 5.15
  434. text 'All rights reserved.'
  435.  
  436.  
  437. /* ========================================================================
  438. /*  ----------------  Toggle on/off for screen display or graphic output
  439. /* ========================================================================
  440.  
  441. /*  ----------------  Toggle off for screen display, on for graphic output 
  442.  
  443. /* quit
  444.  
  445. /*  ----------------  Toggle off for screen display and postscript output 
  446.  
  447. /*  hpgl2 ../plots/aus.gra ../plots/aus.hpg # # OPAQUE
  448.  
  449. /*  ----------------  Toggle off for screen display and postscript output
  450. /*  ----------------  Draws gra file
  451.  
  452. /*  draw ../plots/aus.gra 9999 
  453.  
  454. /*  =======================================================================
  455.  
  456.  
  457. &return
  458.  
  459.  
  460.